home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Science / LabHelper 4.02 Folder / Data / Restriction Enzyme / Restriction Enzyme.rsrc / LENS_129_Enzymes < prev    next >
Encoding:
Text File  |  1994-10-14  |  1.2 KB  |  29 lines
  1. ItemType: WIND
  2. Rect: 125,81,515,280
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 390,0
  9. MaxSize: 390,199
  10. Name: Enzymes
  11. WhiteColor: -8739,-8739,-8739
  12. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then ¬  get licenseCheck()¬  ¬else if objValue="Close" then ¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent
  13. Params: i0_Name¬i1_Text¬i2_Name
  14.  
  15. ItemType: LIST
  16. Rect: -1,22,391,200
  17. Name: path
  18. WhiteColor: -13108,-1,-1
  19. Style: ListWithTabs...
  20. StyleInfo: ........>..........................>.......
  21. Logic: Single
  22. KeyScroll: TRUE
  23. Text: 
  24. Balloon: Enzymes found. Click on the enzyme name to go to that record.
  25. Script: put wsGet(wdID,"1","SelectionText") into enzName¬if enzName ≠ empty then¬  put empty into goEnz¬  repeat with x = 1 to the number of chars in enzName¬    if char x of enzName is "◊" then exit repeat¬    put char x of enzName after goEnz¬  end repeat¬  go cd goEnz¬end if
  26.  
  27. ItemType: LBL
  28. Rect: 4,4,43,20
  29. Text: Label